****************************************************************************
*  OPT-TECH DATA PROCESSINGs  OPT-TECH SORT v3.0 TO dBASE II INTERFACE
*  SORTDBII.PRG  
*****************************************************************************
SET CONSOLE OFF
POKE 60000,235 ,27  ,144 ,0   ,0   ,0   ,0   ,0   ,0   ,0  
POKE 60010,0   ,0   ,0   ,0   ,0   ,0   ,0   ,0   ,0   ,0  
POKE 60020,0   ,0   ,0   ,0   ,0   ,0   ,0   ,0   ,0   ,138
POKE 60030,39  ,67  ,137 ,30  ,99  ,234 ,140 ,30  ,101 ,234
POKE 60040,232 ,161 ,0   ,42  ,237 ,137 ,14  ,103 ,234 ,42 
POKE 60050,225 ,254 ,204 ,137 ,30  ,105 ,234 ,140 ,30  ,107
POKE 60060,234 ,232 ,140 ,0   ,42  ,237 ,137 ,14  ,109 ,234
POKE 60070,42  ,225 ,254 ,204 ,137 ,30  ,111 ,234 ,140 ,30 
POKE 60080,113 ,234 ,138 ,196 ,42  ,228 ,163 ,115 ,234 ,199
POKE 60090,6   ,117 ,234 ,88  ,234 ,140 ,30  ,119 ,234 ,199
POKE 60100,6   ,121 ,234 ,90  ,234 ,140 ,30  ,123 ,234 ,30 
POKE 60110,43  ,192 ,142 ,216 ,161 ,244 ,1   ,31  ,61  ,2  
POKE 60120,0   ,116 ,3   ,235 ,36  ,144 ,131 ,62  ,103 ,234
POKE 60130,14  ,119 ,49  ,131 ,62  ,109 ,234 ,14  ,119 ,42 
POKE 60140,129 ,62  ,115 ,234 ,96  ,234 ,119 ,34  ,30  ,6  
POKE 60150,141 ,22  ,99  ,234 ,205 ,125 ,7   ,31  ,235 ,43 
POKE 60160,144 ,83  ,139 ,30  ,121 ,234 ,199 ,7   ,134 ,1  
POKE 60170,139 ,30  ,117 ,234 ,199 ,7   ,0   ,0   ,91  ,235
POKE 60180,22  ,144 ,83  ,139 ,30  ,121 ,234 ,199 ,7   ,14 
POKE 60190,1   ,139 ,30  ,117 ,234 ,199 ,7   ,0   ,0   ,91 
POKE 60200,235 ,1   ,144 ,195 ,43  ,201 ,128 ,63  ,47  ,116
POKE 60210,10  ,67  ,65  ,129 ,249 ,96  ,234 ,119 ,2   ,235
POKE 60220,241 ,67  ,195
STORE INFILE + "/" + OUTFILE + "/" + CTLSTMT  TO SORTPARMS
SET CALL TO 60000
CALL SORTPARMS
STORE PEEK(59992)+PEEK(59993)*256 TO NUMREC
STORE PEEK(59994)+PEEK(59995)*256 TO RETCODE
SET CONSOLE ON
RETURN
****************************************************************************
*  END OF OPT-TECH DATA PROCESSINGS OPT-TECH SORT TO dBASE II   SORTDBII.PRG  
*****************************************************************************
